home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / FILES.SWG / 0004_FILENAME.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  314b  |  10 lines

  1. if you want to remove the period, and all Characters after it in
  2. a valid Dos Filename, do the following...
  3.  
  4. FileName := 'MYFile.TXT';
  5. Name := Copy(FileName, 1, Pos('.', FileName) - 1);
  6.  
  7. That will do it.  or you can use FSplit to break out all the
  8. different parts of a Filename/path and get it that way.
  9.  
  10.